10 ' Определение количества максимумов
20 CLS
30 KOL = 0: MAX = -E+38
40 FOR I = 1 TO 10
50 INPUT "Очередное число ="; X
60 IF X = MAX THEN KOL = KOL + 1
70 IF X > MAX THEN MAX = X: KOL = 1
80 NEXT I
90 PRINT "MAX ="; MAX; "Таких чисел"; KOL
100 END